home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / RA.cpt / Window.ra < prev   
Text File  |  1986-10-17  |  656b  |  46 lines
  1. |
  2. |   RA™
  3. |
  4. |   Output window control
  5. |
  6. |   © 1986 COM~LINK & S.Koren
  7. |
  8. ≈
  9. #M; 
  10. "RA™ allows you to programatically!"
  11. "control the output window.!!"
  12. "You can size, move, hide or !"
  13. "initialize the window.!!"
  14. #A;
  15. 30 30 ∫    | size output
  16. #A;
  17. 100 100 ¬  | move output
  18. 0 √        | hide window
  19. 0 1 - √       | show window
  20. ≈          | init window
  21. #A;
  22. "THE END."
  23. $
  24. &A
  25. "Hit any key: " ?§ µ @`
  26. |
  27. |  RA title routine
  28. |
  29. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  30.  
  31. &O
  32. 40 100 Ω
  33. "RA™"
  34. 60 45 Ω 
  35. "© 1986 COM~LINK & S.Koren" 
  36. 80 60 Ω
  37. "All rights reserved." `
  38.  
  39. &L
  40. 35 A: ("•" A. 1 - A: A. 0 > ~ ) "!"`
  41.  
  42. &N
  43. "•" 33 A: (" " A. 1 - A: A. 0 > ~ ) "•" "!"`
  44.  
  45. &P ?§ @ `
  46. $